unit untPrincipal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Buttons, ExtCtrls, ComCtrls, Gauges, ActnList,
  XPStyleActnCtrls, ActnMan, ToolWin, ActnCtrls;

type
  TfrmPrincipal = class(TForm)
    MainMenu1: TMainMenu;
    Cadastros1: TMenuItem;
    Movimentao1: TMenuItem;
    Cidade1: TMenuItem;
    Cliente1: TMenuItem;
    StatusBar1: TStatusBar;
    Vendedora1: TMenuItem;
    Produto1: TMenuItem;
    EfetuarVenda1: TMenuItem;
    Sair1: TMenuItem;
    Ajuda1: TMenuItem;
    Acessorios1: TMenuItem;
    Calculadora1: TMenuItem;
    Panel1: TPanel;
    btnCadCidade: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    Categoria1: TMenuItem;
    SpeedButton14: TSpeedButton;
    btnFornecedor: TSpeedButton;
    Fornecedor1: TMenuItem;
    Relatrios1: TMenuItem;
    Produto2: TMenuItem;
    actionPrincipal: TActionManager;
    ActionToolBar1: TActionToolBar;
    acCidade: TAction;
    acCliente: TAction;
    acVendedor: TAction;
    acProduto: TAction;
    acFornecedor: TAction;
    acCategoria: TAction;
    D1: TMenuItem;
    acVenda: TAction;
    MonthCalendar1: TMonthCalendar;
    Image1: TImage;
    N1: TMenuItem;
    ContasaReceber1: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnSairClick(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure Sair1Click(Sender: TObject);
    procedure EfetuarVenda1Click(Sender: TObject);
    procedure Calculadora1Click(Sender: TObject);
    procedure acCidadeExecute(Sender: TObject);
    procedure acClienteExecute(Sender: TObject);
    procedure acVendedorExecute(Sender: TObject);
    procedure acProdutoExecute(Sender: TObject);
    procedure acFornecedorExecute(Sender: TObject);
    procedure acCategoriaExecute(Sender: TObject);
    procedure D1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure ContasaReceber1Click(Sender: TObject);
    procedure Produto2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPrincipal: TfrmPrincipal;

implementation



uses untListagemCidade, untListagemCliente, untListagemVendedor,
  untListagemProduto, untVenda, untVendasEfetuadas, untDM,
  untListagemCategoria, untListagemFornecedor, untDesenvolvimento,
  untContasReceber, untRelatorio;

{$R *.dfm}

procedure TfrmPrincipal.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin


  if MessageDlg('Deseja sair do Sistema ?',mtConfirmation,[mbyes,mbno],0)= mryes then
     action:= cafree
      else
     action:=canone


end;

procedure TfrmPrincipal.btnSairClick(Sender: TObject);
begin
close;
end;

procedure TfrmPrincipal.SpeedButton5Click(Sender: TObject);
begin
frmvendasEfetuadas.showmodal;
end;

procedure TfrmPrincipal.SpeedButton6Click(Sender: TObject);
begin
close;
end;

procedure TfrmPrincipal.Sair1Click(Sender: TObject);
begin
close;
end;

procedure TfrmPrincipal.EfetuarVenda1Click(Sender: TObject);
begin
frmVenda.tag:=1;
frmVenda.ShowModal;
end;

procedure TfrmPrincipal.Calculadora1Click(Sender: TObject);
begin
 WinExec('calc.exe', sw_Show);
 end;

procedure TfrmPrincipal.acCidadeExecute(Sender: TObject);
begin
  try
    Application.CreateForm(TfrmListagemCidade,frmListagemCidade);
    frmListagemCidade.ShowModal;
  finally
    frmListagemCidade.free;
    frmListagemCidade:=nil;
  end;  
end;

procedure TfrmPrincipal.acClienteExecute(Sender: TObject);
begin
 try
    Application.CreateForm(TfrmlistagemCliente,frmlistagemCliente);
    frmlistagemCliente.ShowModal;
  finally
    frmlistagemCliente.free;
    frmlistagemCliente:=nil;
  end;
end;

procedure TfrmPrincipal.acVendedorExecute(Sender: TObject);
begin
   try
    Application.CreateForm(Tfrmlistagemvendedor,frmlistagemvendedor);
    frmlistagemvendedor.ShowModal;
  finally
    frmlistagemvendedor.free;
    frmlistagemvendedor:=nil;
  end;

end;

procedure TfrmPrincipal.acProdutoExecute(Sender: TObject);
begin
  try
    Application.CreateForm(TfrmlistagemProduto,frmlistagemProduto);
    frmlistagemProduto.ShowModal;
  finally
    frmlistagemProduto.free;
    frmlistagemProduto:=nil;
  end;
end;

procedure TfrmPrincipal.acFornecedorExecute(Sender: TObject);
begin
    try
    Application.CreateForm(TfrmlistagemFornecedor,frmlistagemFornecedor);
    frmlistagemFornecedor.ShowModal;
  finally
    frmlistagemFornecedor.free;
    frmlistagemFornecedor:=nil;
  end;
end;

procedure TfrmPrincipal.acCategoriaExecute(Sender: TObject);
begin
   try
    Application.CreateForm(TfrmlistagemCategoria,frmlistagemCategoria);
    frmlistagemCategoria.ShowModal;
  finally
    frmlistagemCategoria.free;
    frmlistagemCategoria:=nil;
  end;
end;

procedure TfrmPrincipal.D1Click(Sender: TObject);
begin
  try
    Application.CreateForm(TfrmDesenvolvimento,frmDesenvolvimento);
    frmDesenvolvimento.ShowModal;

  finally

    frmDesenvolvimento.Free;
    frmDesenvolvimento:=nil;
  end;
end;

procedure TfrmPrincipal.SpeedButton4Click(Sender: TObject);
begin
  try
    Application.CreateForm(TfrmVendasEfetuadas,frmVendasEfetuadas);
    frmVendasEfetuadas.ShowModal;
  finally
    frmVendasEfetuadas.Free;
    frmVendasEfetuadas:=nil;
  end;
end;
 //abrir a tabela Contas
procedure TfrmPrincipal.ContasaReceber1Click(Sender: TObject);
begin


 try
    Application.CreateForm(TfrmContasReceber,frmContasReceber);
     frmContasReceber.ShowModal;
  finally
    frmContasReceber.free;
    frmContasReceber:=nil;
  end;
end;

procedure TfrmPrincipal.Produto2Click(Sender: TObject);
begin
  frmRelatorio.ShowModal;
end;

end.
